espacepr
espacepr(qm,l)
Func
Local aa,ql,mm,mmm,mma,vc,vv
Define vc(k)=Func
   If k³120 and k£122 Then
      k
   ElseIf k³123 and k£126 Then
      k-7
   Else
      k-30
   EndIf
Endfunc
rref(qm-l*identity(rowDim(qm)))àmm
newMat(colDim(qm),1)àql
For aa,1,colDim(qm)
   #(char(vc(119+aa)))àvv
   If getType(vv)¹"NON" and getType(vv)¹"VAR" then
      Return "Il faut effacer "&char(vc(119+aa))
   ElseIf inString(string(qm),string(vv))¹0 Then
      Return string(vv)&" est dans la matrice, il faut lui donner un autre nom."
   Else
      vvàql[aa,1]
   EndIf
EndFor
mm*qlàmmm
newMat(1,1)àmma
For aa,1,rowDim(mmm)
   If string(mmm[aa,1])¹"0" Then
   augment(mma,[[mmm[aa,1]=0]])àmma
   EndIf
EndFor
subMat(mma,1,2,1,colDim(mma))àmma
mma^T
EndFunc